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cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
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Ba IESSeHaMe O:NUBE WADA MeSH 2, 
MODULE utilsubs ( IDENT = *v04-000' 
ADDRESSING MODE (EXTERNAL 5, GENERAL, “RELATIVE)) = 


' 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ie ALC RIGHTS RESERVED.” 

ie THIS SOFTWARE IS FURNI SHED UNDER A LICENSE AND MAY BE USED AND COP 
ie IN ACCORDANC ITH THE TERMS OF SUCH LICENSE AND WIT 
ie SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY 
ie S THEREOF WRAY Not BE PROVIDED OR OTHERWISE MADE AVAILABLE T 

ie PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
ie 

ie 
‘@ 
le 
ie 
ig 
ie 
ie 
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ORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ata NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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; FACILITY: SET and SHOW Command utility routines 
i ABSTRACT: 


WN SO OONOUES WN OO OONAOULE wy 


Meuwn— 
wm 


This module contains support routines to manipulate 
UICs, as well as file and device protections. 


i ENVIRONMENT: 


‘ 
1 
' 
ft 
' 
' 
' 
re ? : VAX/VMS operating system, user mode 
4¢ dag i AUTHOR: Gerry Smith 23-F eb-1983 
44 00 4 i Modified by: 
rs) $ ; v03-004 LMP0191 - Mark Pilant, 13-Feb-1984 9:29 
2 Return the ee “from the UIC parse. 
g $ : v03-003 GAsOt?® Gerry Se ith 7-Sep-1983 
0 0 : Make non-external references longword references instead 
1 1 : of word references. 
5 3 ! v03-002 LMP0140 Mark Pilant 23-Aug-1983 10:10 
: : : Add support for Reeth Uics. 
$ § : v03-001 GAS0119 Gerry Smith 14-Apr-1983 


Fix sense of KEY in. XPAND. PROT. 


BS 
i. 


059 | i. 


1$$e0c1984 QELS Y 


AX-1 
CLIUTL 


One Sui i Sues 080: 1 


I$SS0c19R OO:H1:BS  YARGTT eb tng=2 0-763 rage 3 


' 
i Include files 


LIBRARY *SYSSLIBRARY: STARLET*; ! VAX/VMS connen definitions 
BRARY ‘SYSSLIBRARY:TPAMAC'; ! TPARSE mac 


a 6 
re eet Pee CT iat Sr Me YS ee 
. 1 


Table of contents 


FORWARD ROUTINE 


parse_uic, ! Convert ASCII UIC to longword 
get_prot : NOVALUE, ! Convert ASCII protection to binary 
parse cl } Parse one class of user protection 


ass, 
expand_prot : NOVALUE; Convert binary prot to ASCII 


1 
: External routines 


: 1 

5 1 

3 1 

3 1 

; 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

i 

H ¢ 080 1 exTene’, ROUTINE 

© 081 1 cli$present, ! Detect presence of value from CLI 
; «(884 ot 1 cli$get_value, ! Get value from CLI 
; 85 00 1 LIBSTPARSE; ! General purpose parser 
3 HF] 0084 1 

3; 8 085 1! 

; 2 «(888 Bee 1 ! External symbols 

5 87 1! 

HY 90 088 y Extens, ITERAL 

: 4 0090 : cli$_ivprot; ! Invalid protection specification 
: 9 091 1 

; 94 44 1 CONVERTED_UIC; ! Converted UIC value 
;  3e ooo 1! 

3 4 344 ; : Parse the UIC string and store the binary value. 

; B43 3 ! SINIT_STATE (UIC_STB, UIC_KTB); 

: 101 P0099 1 S$STATE ( 

: 108 P0100 1 (TPAS_IDENT,.,.CONVERTED_UIC) 

; 10 101 1 ; 

3 104 p Ie 1 $STATE ( 

; 105 P 919 1 (fPAS_EOS, TPAS_EXIT) 

: 106 104 1 ); 
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ifosen-1964 09:81:55 


GLOBAL ROUTINE parse_uic (desc, uic) = 
BEGIN 


takes an ASCII string of the form [m,n] and attempts to pa 


' the pieces 


to a longword UIC. any errors are detected, an error i 


DESC = address of ASCII descriptor of UIC string 


= the longword representation is returned here. 


desc : REF S$BBLOCK, 
uic : REF VECTOR; 


BIND string = .descCdsc$a_pointer] : VECTORC BYTE); 
LOCAL 


: SBBLOCK CTPASK_LENGTHO] 
INITIAL (TPASK-COUNTO, 
TPASHCBLANKS OR 


ABBREV ’ 
! Routine return status 


TPARSE_BLOCKCTPASL_STRINGCNT) = .DESCCDSC$W_LENGTH); 
TPARSEBLOCKLTPASL_STRINGPTRI = . 


If NOT (STATUS = LIBSTPARSE (TPARSE_BLOCK, UIC_STB, UIC_KTB)) 
THEN RETURN .STATUS; 


UICCO] = .CONVERTED_UIC; 
RETURN 1; 
END; 


DESCLDSCS$A~POINTERI; 


! MAKE THE UIC LONGWORD 


_LIBSSTATES ,NOWRT, 
00000 VIC STB:: 

45EC 00000 gipAastvPe 
00000000* 00002 STBASADDR im 

15F7 00006 ; TPASTYPE 
4: WOR 

FFFF 00008 ; TPASTARGET 

U.5: - WORD 


<<CONVERTED_UIC-U. 3>=4> 


vai 
«PSECT 


00000 UIC_KTB:: 
BLK 
00000 sTPASKEYO, 


U.1: LKB 

-PSECT 

00000003 00000008 00000 P.AAA: .LONG 
-PSECT 


00000 CONVERTED_UIC: 
-BLKB 


~EXTRN 
-EXTRN 
-PSECT 
soe 00000 -ENTRY 
SE 24 (C¢ sits SUBL2 
56 04 AC 0 000 MOVL 
24 00 00000000" EF oe C 4 584 moves 
08 AE 66 3¢ 00018 MOVZWL 
Oc AE gs A6é DO a SEE VL 
00000000° EF 9F QO00IC PUSHAB 
00000000" EF 9F 000 ‘ PUSHAB 
08 Ag 9F 000 PUSHAB 
000000006 00 2 44 00 CALLS 
0 €9 000 BLBC 
08 B¢ 00000000" EF 00 838 MOVL 
0 1 00 00030 MOVL 
04 00040 1$ RET 


3; Routine Size: 65 bytes, Routine Base: $CODE$S + 0000 


7 
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AX-11 Oi iegr3¢ V4 .0-74 
CLIUTL.SRCJUTILSUBS.832;1 

-LIBSKEYOS,NOWRT, SHR, PIC,1 

0 

0 

SPLITS,NOWRT ,NOEXE,2 

8, 3 

SOWNS ,NOEXE ,2 

4 


CLISPRESENT, CLISGET VALUE 
LIBSTPARSE, CLIS_IVPROT 


SCODES ,NOWRT ,2 


PARSE_UIC, Save R2,R3,R4,R5,R6 
#36 .7 


pest 
#8, P.AAA, #0, #36, TPARSE_BLOCK 


(R6), TPARSE_BLOCK+8 
(ROS, TPARSE_BLOCK#12 


STB 
ARSE BLOCK 
LIBSTPARSE 


VERTED_UIC, auIC 
RO 
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C 
Cc 
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C 
C 
C 
C 
C 
Cc 
C 
C 
C 
C 
C 
Cc 
C 
Cc 
C 
C 
C 
Cc 
Cc 
C 
Cc 
C 
i 
C 
C 
C 
L 
L 
L 
0 
S 
S 
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$ 
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= 


converts that I representation to a word of binary data which is the 
representation protection used by the system. 


Inputs: 
Non 


Outputs: 


DWONAULS WN —"OODONOM 


DPA ATISIUTIUIOUN SE £* £* £~ 


CLASS - a yore en indicating what classes of protection were 
referenced. 
PROT = a word bitmask representing the requested protection 


LOCAL 
status, 
desc : SBBLOCKCdsc$c_s_bin); ! Descriptor 


| 

| 

| 

| 

| 

| 

: 
class : REF VECTORC,WORDJ, 
prot : REF VECTORC,WORDJ; | 
| 

| 


Define the tables of ASCII descriptors, to be used by the CLI. 


OWN class_table : VECTOR[4] INITIAL(ZASCID ‘OPTION. PROTECTION. SYSTEM®, 
ZASCID ‘OPTI E OWNER® 


OPTION.PROT ON. OWNE 


CT] . 
ZASCID aot ite pabtattion cme 


ZASCID “OPTION.PROTECTION.WORLD'S; 


' 
: Initialize the descriptor. Clear the mask and protection word. 


classt0s = prottos = 0; 
‘ 


i For each class (SYSTEM, OWNER, GROUP, and WORLD), see if a protection 
: was given. If so, parse that into a binary representation. 


INCR index FROM 0 TO 3 Do 
IF cli$present(.class_tablel. index) 
THEN 


a a a ad a a od od = a oe = od “a = 2 2 = 2 a 8 a 2 a a I 


ek ee ak a a a td td tt ot = = ts 2 = a SS SS SS as os SS SS as SS YS SY 
Oo 10909 09 09 SINISE IO PAO AAA O 
SRSSSESSS RON AS LIISA ISSS ESOL S 


ASRAVLSSSLESRAVSLESELSEALATLSSSVSARAVLSSSIFAFETISSSLSEAF 


BEGIN 

class(0) = .class(0) OR ((2X°F")*(. index*4)); 
IF cl get yoluet.ctoge.cebier. index. desc) 
THEN prot 0] = 0 


SSLESE 


-prot OR (parse_class(desc)*(.index*4)); 


Be Se Se Se Be Se Se Se Ge Ge Se Se Ge Se Ge Ge Se Ge Ge Ge Se Ge Se Ge Ge Fe Ge FH Se Ge Ge Ge Ge Se Ge Se Se Ge Ge ec Ge Se FH Se Ge Se Ge Se Ge Ge Ge Se Se Se Se eee 


| 
GLOBAL ROUTINE get_prot (class, prot) : NOVALUE = | 
! 
leone 
i 
: This routine Wagerropetes ne to get the requested protection, and then 
H of 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
4 
4 
4 
; 
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NR oe 
oo 
-o 


eouUhrFf 


voe~000° eet9Ee QB:HURF YAGUL SeIcH Mel 28. 


1 

: fone omplement the protection value since at this point, a bit set true 
: ndicates that we want fo ALLOW access, while the system convention 
! 


uw 


is that a bit set true indicates that we want to DENY access. 


if .class{0) NEQ 0 ! If any protections specified 
THEN pesttod = NOT .prot(0J; ! then Jet the complement 
2 


RETURN 1; 
END; 


See ee ee Se Ge Ge Ge Se Seas 
4 
CUiSWwr— 
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-PSECT SPLITS,NOWRT ,NOEXE ,2 


49 546 43 45 54 4F 52 20 ef of 4F 33 54 50 4F 00 008 P.AAC: .ASCII \OPTION.PROTECTION.SYSTEM\ 
4D 4 * 335 3S $c0 oi8 000 
ai? 0E0 ‘ P.AAB: .LONG 17694744 
oe 00" ADDRESS P.AAC 
49 54 43 45 54 4F 35 50 ef 4—E 4F 49 a 35 ‘ P.AAE: .ASCII \OPTION.PROTECTION.OWNER\<0> 
52 45 4E 57 4F 4E 4F 
2E 100 0017 0940 P.AAL: .LONG 17694743 
630) 000° Bones -ADDR ° 
49 54 43 45 54 4F 52 50 3 4E 4F 49 GF ope8 P.AAG: .ASCII \OPTION.PROTECTION.GROUP\<0> 
00 50 4F 52 47 4E 4F 0005 
“91 d€0017 O60 P.AAF: .LONG 17694743 
Pass 0000° 00064 «ADDRESS P.AA 
49 54 43 45 54 4F 52 50 2€ 3 4F 49 3 Q 4F gongs P.AAI: .ASCII \OPTION.PROTECTION.WORLD\<0> 
00 44 4C 52 4F 57 4E 4F 00077 
010E0017 00080 P.AAH: .LONG 17694743 
00000000° 00084 -ADDRESS P.AAI 


-PSECT SOWNS,NOEXE,2 


00000000" 00000000" 00000000° 00000000' 00004 CLASS_TABLE: 
«ADDRESS P.AAB, P.AAD, P.AAF, P.AAH 


-PSECT SCODES,NOWRT,2 


000C 000 ENTRY aH PROT -? sf. R3 
53 00000000" EF i 09 HOVAB CLASS. TABLE 
E a. SUBL SP 
020E0000 8F DD 0000 PUSHL #34 1936 
04 AE 04 0001 CLRL ——dDESC +4 
8 BC B4 0001 CLRW = aPR 
04 é B4 1 CLRW  aCLASS 
D4 00018 CLRL ‘INDEX 
6342 DD 0001D 1$: PUSHL ¢ Ass TABLELINDEX 
000000006 F CALLS ISPRESENT 
; BLBC ny: 
51 A ASHL e PHREX, R1 
50 OF 7 c ASHL 
04 BC OA BISW2 nd: #13, ho 
E PUSHL 


HEcsto-19g4 O0:FI:85 yatctt BL isg=42 v4.0 
tee iB TABLECINDEX] 
SEISGET_V VALUE 


CALLS + PARSE_CLASS 
‘ . [noe R1 


: 

4 

4 

: ater ny. Shot 
A # 

; 

6 


ee 


08 BC 08 


» INDEX, 1$ 
LASS 


000000006 99 03 
a 
“ores 
if 


oW-2 8 > NV MOM NO 


SVWUUWOOOWoOoWO 


a @PROT, @PROT 


; Routine Size: 105 bytes, Routine Base: S$CODES + 0041 


BS ie 


7 
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3s 2 13 1 ROUTINE parse_class (desc) = 

: 1 : BEGIN 

: g 18 De 

3 1 ! This routine parses one class of user (e.g. SYSTEM, OWNER, GROUP, WORLD) 
3 4 1 ' fo see what protection is allowed. The value returned in the low 4 bits 
: 5 ' is the protection code, with the bits set to reflect that access is 

; $ : requested. Note that this is exactly the opposite of what the system wants. 
; ; Inputs: 

; 5 : DESC = a descriptor pointing to the ASCII representation of the 

: ; § : protection desired 

: 8 loco 

: 235 0 MAP desc : REF SBBLOCK; 

; ¢ LOCAi. 

; result, 

3 ip ¢ string : REF VECTORC,BYTE); ! String pointer 

> 241 ! 

3 0 Initially set the value to all zeros, no access 

: 266 8 § result = 0; 

88 ae 

; 4 4g i Scan for the occurrence of each keyletter, and, if it is there, set the 
; 28 $2 H appropriate bit. 

3 250 8 45 string s -doscldgcSe_pointer]: 

; 51 re mn ee FROM 0 to (.desclCdsc$w_length] -1) DO 

; 2g § 48 IF .stringl.index] EQL‘R’ 

3 254 49 THEN result = .result OR %x‘'1' 

: 255 50 ELSE IF .stringl.index) EQL ‘Ww’ 

3 2$ 3) THEN result = .result %x"2" 

Ee ¢ ELSE IF “strings . Jagex EQL ‘E’ 

3 28 5 OR .stringl.index] EQL 'P' 

; 25 54 THEN result = .result Zx°4' 

; 260 55 ELSE IF strings . Index EQL ‘D' 

; 261 2$ -stringl.index] EQL *L" 

3 og THEN result = .result OR &x'8 

s 6 38 ELSE SIGNAL_STOP(cLi$_ivprot); 

3 4 4 END; 

; 66 61 RETURN .result; 

; 2 62 END; 


003C 00000 PARSE_CLASS: 
-WORD Save R2,R3,R4,R5 


j 
SD 


: 0213 


ifste 


ep-lone $oito:d? = etiute ese SRILEE, Paar ob) 


i ane Be 
7 A 09 MOV a TRING : 
meat Be 
RINE i:  inpex : 024 
0 6342 9A mOvZ NDEX)CSTRINGJ, R 
ma» ED alee 
54 1 BISB2 RESULT 
A BRB H 
57 BF CHP i #87 
54 2 81582 ae. RESULT 
45 OF 09 CMPB RO, #69 
1} BEQL «= 4 
50 «F CHEE RO, #80 0253 
54 as BISB2 #4, RESULT 0254 
if BRB 8$ 
44 = oBF 4 CMPB sO, «#68 0255 
1 BEQL 46s 46S 
4c OGF 9 HPS Rd. #76 0256 
54 : as B1SB2 48, RESULT 0257 
000000006 &F PUSHL A#CLIS LyPROT 025 
000000006 1 Ff CALLS #1, LT8$ - 
B3 5 F AOBLSS RS, INDEX. os 0246 
4 v0 MOVL RESULT, RO 0261 
RET : 0262 


3; Routine Size: 101 bytes, Routine Base: SCODES + OOAA 


Be Oe Be Oe Be Oe Oe Oe Be Oe Oe Bs Be Oe Se Se Se Be Be Oe Se Se Se Se Se Se Se Se Se Se Bee 
ooso 2& 
Nm Nm NH HF 
32S es 
Nn = oO 


wl Rati GS MIME NET, oe 


ROUTINE expand_prot (table, prot, key) : NOVALUE = 
Tarte pand_p p y 


| 
° f j 
: 
; 7 gt 
3 : Functional description | 
3 ' ; This routine fills a given VECTOR with the addresses of 
; , : strings corresponding to a given protection word. 
3 7 : Input parameters 
3 a : TABLE = address of the table to be filled in 
3 7 ' PROT = protection word 
3 7 : KEY - lag to angicete how to translate the protection 
3 : => RWED (file protection) 
H : => RWPL (device protection) 
5 ; : Output parameters 
3 : ! TABLE has been filled in with the addresses of descriptors 
; + : of strings describing each type of user (SYS,OWN,GRP,WORLD). 
4 ° lewwe 
3 : ND 
; : prot_table = .table: VECTOR(4); ! Table of addresses 
; 1 
3 9 rwed_values: VECTOR(16) INITIAL(ZASCID ‘RWED', ' File 
3 ZASCID ‘WED’, ' protection 
3 ZASCID ‘RED’, ! descriptions 
3 ZASCID *ED' 
3 ZASCID ‘RwD’, 
3 9 ZASCID ‘wo’, 
; TASCID "De, 
; 506 $0¢ ZASCID ‘Rue’, 
; 3 50 tits *WE’, 
3 UE +44 ZASC 0 sRE’, 
3 Dg ¢ ZASCID ‘E i 
; 310 p ZASCID ‘RW’, 
3 «311 05 ZASCIO ‘w', 
: \§ 106 ZASCID ‘R', 
: 3i3 $0 ZASCID *"), | 
3 ¢}. 
; 315 $05 rwpl_values: VECTOR[16) INITIAL(ZASCID ‘RWLP’, ! Device | 
: 1g 19 ZASCID ‘WLP, ! protection | 
3; 1 ZASCID ‘RLP', ! descriptions 
: 18 \§ ZASCIO *LP*, 
ga. 1 ttt * Re e 
; 14 ZASCID ‘WL’, 
: 1 15 ZASCID *RL', 
3 § 16 ZASCID ° 
: 1 ZASCID *RuP’, 
3 4 18 ZASCID ‘WP’, 
3 5 1 ZASCID ‘RP* 
| 


? 
UTIL é- ep-1 :31: AX-11 Bliss-32 v4.0-74 Pp. 3 
vou-b00° Vegeb-i9ee $S:t0:07 Lek Tut “Safuriusuas.og3-1 oer 5 
3 ZASCIO Nae 
| BE 
; ASCID ‘Rr: 
: Faze BD °")s 
: ' 
; $ i Based on the value of KEY, th iate devi tecti ipti 
3 ' table. for each class esestER, OWNER” GROUP, WORLD). oe the aM + aad ote 
; $35 i protection pattern as an index into the protection table. 
; if .key EQL 0 
: ; THEN INCH index FROM 0 TO 3 DO 
s Corot gaalet, indes, = ,rwed_values C.prot<. index*4,4>)) 
3 ELSE INCR index FROM 0 TO $ DO 
: 5 (prot_tablel.index] = .rwpl_values C.prot<.index*4,4>)); 
; 4 RETURN; 
FH END; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
eASCIIT = \RWED\ 


rs 
- 


Orne 
J 
7 
NA 
wy 


SPAS 


NA ONOCO 

No NwY 
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So 
w 
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C 
C4 P.AAU: .ASCI 
+f P.AAT: . 


VND U~ 


e ADDRESS 
eASCII \ 


BAW 

: B\<f><9><0> 
P.AAX: .LONG 1769472 
ADDRESS P.AAY 


P 
-ADDRESS P.ABA 
P.ABC: .ASCI WHE 359350 
P.ABB: .LONG 17694722 

P ASCII AREA <O><0> 
P » 1eEos 22 
“ADDRESS P.ABE 


ft fa be Pe Oe ee Pe Oe FP 


uns. suRs ibeseon19ee OO:H1:3  yanctt BLingc se v4. 0-742 


00 D10C P.ABG: .ASCII \E\<0><0><0> 
0110 P. ABE : Aste 15350359 

00 O11 P.ABI: ati RUN Bo <0> 
OIIC PLABH: <LONG 17694722 

00 018 P.ABK: ASCII \uieb><O><O> 
001 8 PLABJ: “10 negara 

00 00136 P.ABM: <ASCI vA cb>< ><0> 
00134 P-ABL: LONG 1769 il 
tf C P.ABO: ty pene 
D013C PLABN: <LONG 9 696720 

50 o14e P apo: cAScliy \RUCE 
00148 P.ABP: LONG 1Febe)26 
dora -ADDRE $ P.AB 

00 00150 P.ABS: .ASCI WwiP\< > 
00154 PLABR: <LONG 17694723 

00 DO1Se P.ABU: ASCII \RLPYSO> 
00160 P-ABT: .LONG tre 
10164 “ADDRESS P. 

00 00168 P.ABW: .ASCII \LP\<0><0> 
d016¢ P.ABV: .LONG 694722 
01 “ADDRESS P.ABW 

00 00174 P.ABY: ASCII \RUL \< > 
0178 P.ABX: LONG 17694723 
0017 “ADDRESS P.ABY 

00 00180 P.ACA: .ASCII Wi << 
00184 P.ABZ: LONG 17694 
01 “ADDRESS P.AC 

00 DO18C P.ACC: ASCII Mai \<0><0> 
00190 P.ACB: LONG 17694 
10194 [ADDRESS P.ACC 

00 00198 P.ACE: .ASCII \L\<0><0><0> 
0019 P-ACD: .LONG 17694721 
01 “ADDRESS P.ACE 

00 DOIAG P.ACG: <ASCIIT \RWP\<0> 
DOIAS PLACF: LONG 17694723 

00 Bo186 P.ACI: “ASCLT WEA <G <O> 
DO1B4 P.ACH: LONG 17694722 

0 BIB ace, “ABP Reh th cos 
boreb P.ACJ: .LONG 17694722 

00 O1E8 PACH: “ASCLT MPA cbc ><0> 
DOICC P-ACL: <LONG 1769 il 

00 DBDs P.ACO: ASCII \RUNCO><O> 
D01D8 P.ACN: <LONG 1RE90935 

00 boteg P.ACQ: “ASCLT AW\cOD< ><0> 
RIES PAC: “LONG. \Po9a7ot 
DO1ES “ADDRESS P.ACQ 
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; Routine Size: 61 bytes, Routine Base: SCODES + 010F 


ifoseon19ee OO:Hs5S  YAKcNT OLtegHD yi. 0-742 


ASCII \R\<0><0><0> 
e LONG 13350359 
ADDRESS P.ACS 


“LONG 


7694720 
«ADDRESS P.ACU 
-PSECT SOWNS,NOEXE 2 


00000000' 00000000" 00000000" 00000000° 00000000" 00000000' 00014 RVED_VALUES: | saith aan aoe aes he 
connnn00* 00000000" SSSSHTan: 29000088: 89998000. SUUEGGRR: 8882 | BAAATe BoAAV. BAA. WARE. 0 -AgG. P.AMD. @ 
00000000' 00000000° titititititit ‘ NOO ttt a AAC ’ ‘6 HH * ‘ 54 RUPE WALES oe ; oie ; al . jee " oad " san 
00000000* 00000000° 00000000° ' ' * 0006C : P.ABZ, P.ACB, P.ACD, P.ACF, P.ACH, P.ACJ, = 
Bo000080" 099000" BoEree00" Srooooe" ooss BARE! PIACH. PLAEP. PLAER. PlArt 
-PSECT S$CODES$,NOWRT,2 
0004 -ENTRY EXPAND_PROT, S R2 
OC AC BS 000 iStL. 3=6OKEY _— 
oi Gamer fex 
52 50 9 ba 1$: ASHL #2, INDEX, R2 
51 08 AC 04 EF EXTZV R2, #4, PROT, R1 
04 BC40 00000000'EF4 09 O918 MOVL § RWED VALUE atl. @TABLELINDEX) 
€8 50 03 bz Bee Aoacee #3, INDEX, 1$ 
0 D4 00022 28: CLRL «INDEX 
52 50 6 a 4 $: ASHL #2, INDEX, R2 
51 08 AC 04 EF 00028 EXTZV #4, PROT, R1 
04 BC40 00000000'EF4 D9 99 MOVL RWPL vALUeSERII, @TABLELINDEX) 
€8 50 03 i 3 AOBLEG #3, INDEX, 3$ 


Bee Ge Ge Se Se Ge Ge Se Se Se Ge Se Se Se 


vou-000" ieeetage QB:TU:gF WGN esc tel 28. rae BS 
i 8320 0 ELuDon 


-EXTRN LIBSSTOP 


; PSECT SUMMARY 
: Name Bytes Attributes 

: SOWNS 14 NOVEC, WRT. RD ,NOEXE,NOSHR, LCL, REL. CON.NOPIC.ALIGN(2) 

3  LIBSKEYOS NOVEC, »NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC.-ALIGN(1) 

3 “LIBSSTATES 1 C.NOWRT, RD, EXE SHR, LCL, REL, CON, PIC.ALIGN(1) 

; SPuit 3 NOVEC ,NOWR I. RD |NOEXE, MOSH’ LCL, REL. CON NOPIC.AL 1GN(2) 

3 SCODES 32 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

3 Library Statistics 

| ST ee Symbols -<------ Pages Processing 

3 File Total ibeted” Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET. 32;1 9776 15 : 581 00:01.0 

+ 7~$255$DUA28:CSYSLIBJTPAMAC.L 32; 1 42 19 4 14 00:00.1 

: COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:UTILSUBS/OBJ=OBJ$:UTILSUBS MSRC$:UTILSUBS/UPDATE=(ENH$:UTILSUBS) 


; Size: 332 ode i 670 data bytes 
Run Time 
Sleseed Time: 


Lines/CPU Min: ie 
Lexemes/CPU-M tes orbs 


Memor cy Ue Used: 100 pages 
Compilation Complete 
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